home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh23b.d64 / statik 64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  17KB  |  590 lines
  1. 1 REM ---------------------------------
  2. 2 REM -          STADI V1.1           -
  3. 3 REM -                               -
  4. 4 REM -      (C) BY INGO TACK         -
  5. 5 REM -        4630 BOCHUM 6          -
  6. 6 REM ---------------------------------
  7. 7 :
  8. 12 I=I+1
  9. 14 IF I=1THENLOAD"ERW.1",8,1
  10. 90 :
  11. 91 REM --------------------------------
  12. 92 REM -         TITELBILD            -
  13. 93 REM --------------------------------
  14. 99 :
  15. 100 POKE 53280,0 :POKE 53281,0 :PRINT CHR$(14 )CHR$(147);
  16. 101 PRINT"[158][176]";:FOR Z=1 TO 38:PRINT"`";:NEXT
  17. 102 PRINT"[174]}   sTAHLBETONBEMESSUNG VON sTUETZEN   [146]}";
  18. 103 PRINT"}     MIT EINER sCHLANKHEIT <= 70      [146]}";
  19. 104 PRINT"[171]";:FOR Z=1 TO 38:PRINT"`";:NEXT
  20. 105 PRINT"[179]}   dAS pROGRAMM BERECHNET FOLGENDE    [158]}";
  21. 106 PRINT"}"SPC(12)"dRUCKGLIEDER:"SPC(13)"[158]}";
  22. 107 PRINT"[171]";:FOR Z=1 TO 38:PRINT"`";:NEXT
  23. 108 PRINT"[179]}   - ZENTRISCH BELASTETE sTUETEZEN    [158]}";
  24. 109 PRINT"}"SPC(11)"OHNE kNICKGEFAHR"SPC(11)"[158]}";
  25. 110 PRINT"[221]   -  BEI [194]EANSPRUCHUNG DURCH [194]IEGE-  [158][221]";
  26. 111 PRINT"}"SPC(7)"MOMENTE MIT nORMALKRAFT"SPC(8)"[158]}";
  27. 112 PRINT"[221]"SPC(38)"[221][221]  [196]IE [203]NICKSICHERHEIT WIRD NACH DEN   [158][221]";
  28. 113 PRINT"[221]        [197]ULER [198]AELLEN  ERMITTELT"SPC(6)"[158][221]";
  29. 114 PRINT"}   (BEI UNVERSCHIEBLICHEN sYSTEMEN)   }";
  30. 115 PRINT"}"SPC(38)"}}    dIE bERECHNUNGEN ERFOLGEN NACH    }";
  31. 116 PRINT"}"SPC(15)"din 1045"SPC(15)"}";
  32. 117 PRINT"[171]";:FOR Z=1 TO 38:PRINT"`";:NEXT
  33. 118 PRINT"[179]}"SPC(11)"[159](C) BY iNGO tACK"SPC(11)"[158]}";
  34. 119 PRINT"}"SPC(14)"[159]jULI 1986"SPC(15)"[158]}";
  35. 120 PRINT"[173]";:FOR Z=1 TO 38:PRINT"`";:NEXT
  36. 121 PRINT"[189]";
  37. 130 FORW=1TO5000:NEXTW
  38. 150 GOSUB9960
  39. 151 :
  40. 152 REM -------------------------------
  41. 153 REM -        EINGABEMENUE         -
  42. 154 REM -------------------------------
  43. 155 :
  44. 156 GOSUB10000
  45. 160 GOSUB5000 :REM BAUSTOFFEINGABE
  46. 163 GOSUB10000
  47. 165 GOSUB5100 :REM QUERSCHNITT
  48. 170 GOSUB10000
  49. 175 GOSUB5200 :REM SCHNITTKRAEFTE
  50. 181 GOTO 5400 :REM EINGABEFEHLER
  51. 182 GOSUB10000
  52. 185 GOSUB5300 :REM FRAGE AUF KSN
  53. 190 IF KSN=0THEN M0=ABS(M2):D2=D:GOTO355
  54. 194 :
  55. 195 REM -------------------------------
  56. 200 REM -       BERECHNUNG SK         -
  57. 201 REM -------------------------------
  58. 202 :
  59. 205 IFA2<>0THEN225
  60. 210 IFA1=1THEN L=S1:GOTO230
  61. 215 IFA1=2THEN L=S2:GOTO230
  62. 220 IFA1=3THEN L=S3:GOTO230
  63. 225 IF(A1=1ANDA2=2) OR (A1=2ANDA2=1) THENS=S1+S2:GOTO229
  64. 226 IF(A1=2ANDA2=3) OR (A1=3ANDA2=2) THENS=S2+S3:GOTO229
  65. 227 IF(A1=1ANDA2=3) OR (A1=3ANDA2=1) THENS=S1+S3:GOTO229
  66. 229 L=S/2
  67. 230 GOSUB10000
  68. 235 SYS AUS,5,5,"[196]ER [203]ORREKTURWERT [194]ETA FUER DAS"
  69. 240 SYS AUS,5,7,"[211]YSTEM LAUTET :";:PRINTL
  70. 241 PRINT"[158]"
  71. 245 SYS AUS,5,10,"[215]IE LAUTET DIE [203]NICKLAENGE H  [M] "
  72. 250 SYS AUS,15,12,"[211]K = ";:SYS EIN,5,E2$,A$:SK=VAL(A$)
  73. 255 SK=SK*L
  74. 260 SYS AUS,5,15,"[196]IE [203]NICKLAENGE BEZOGEN AUF DAS"
  75. 265 SYS AUS,5,17,"[211]YSTEM BETRAEGT :";:PRINTSK;"M"
  76. 290 :
  77. 291 REM -------------------------------
  78. 292 REM -  BERECHNUNG DER SCHLANKHEIT -
  79. 293 REM -------------------------------
  80. 294 :
  81. 300 L1=SK/(0.289*(B/100))
  82. 305 L2=SK/(0.289*(D/100))
  83. 306 IFL1>L2THENL=L1
  84. 307 IFL2>=L1THENL=L2
  85. 308 IF ABS(M2)=0ANDABS(M1)=0THENGL=45:GOTO315
  86. 309 IF L> 70THEN5500
  87. 310 GL=45-25*M1/M2
  88. 315 IF L1>GLTHEN L=L1:D2=B:GOTO340
  89. 320 IF L2>GLTHEN L=L2:D2=D:GOTO340
  90. 321 IF F1=1THEN2000
  91. 325 GOTO 500:REM REGELBEMESSUNG
  92. 326 :
  93. 327 REM -------------------------------
  94. 328 REM -      BERECHNUNG VON MO      -
  95. 329 REM -------------------------------
  96. 330 :
  97. 340 IF ABS(M2)=0 AND ABS(M1)=0 THEN M0=0:GOTO355
  98. 345 IF ABS(M2)<>0AND ABS(M1)=0 THEN M0=0.6*ABS(M2):GOTO355
  99. 350 M0=0.65*M2+0.35*M1
  100. 355 E0=M0/ABS(N):VG=E0/(D2/100)
  101. 360 IF VG>=3.5THEN5600
  102. 361 IF F1=1 AND KSN =0 THEN 2000
  103. 362 IF KSN =0 THEN 500
  104. 365 :
  105. 370 REM -------------------------------
  106. 371 REM -  BERECHNUNG ZUSATZAUSMITTE  -
  107. 372 REM -------------------------------
  108. 373 :
  109. 380 IFVG<=0 OR VG<0.3 THEN F= D2*((L-20)/100)*SQR(0.10+VG):GOTO400
  110. 385 IFVG<=0.3ORVG<2.5 THEN F= D2*((L-20)/160):GOTO400
  111. 390 IFVG<=2.5ORVG<3.5 THEN F= D2*((L-20)/160)*(3.5-VG)
  112. 395 :
  113. 396 REM -------------------------------
  114. 397 REM -      BERECHNUNG MAX M       -
  115. 398 REM -------------------------------
  116. 399 :
  117. 400 M=M0+ABS(N)*(F/100)
  118. 495 :
  119. 496 REM -------------------------------
  120. 497 REM -    REGELBEMESSUNG TEIL 1    -
  121. 498 REM -------------------------------
  122. 499 :
  123. 500 IF M0<>0 OR  M1<>0 OR  M2<>0 OR M<>0  THEN 700 :REM   REGELBEMESSUNG TEIL 2
  124. 501 :
  125. 505 REM ***  GEBUNDENE BEMESSUNG    ***
  126. 506 :
  127. 510 NB=B*D*((BR/10)/2.1)
  128. 515 NS=ABS(N)-NB
  129. 520 IF NS<0THEN 540
  130. 525 EA=NS/((BS/10)/2.1)
  131. 530 A1=EA/2:GOTO 2000
  132. 531 :
  133. 535 REM *** STAT. ERF. QUERSCHNITT  ***
  134. 536 :
  135. 540 IF BS=220THENGR=((BR/10)/2.1)/.008+10.5:GOTO 550
  136. 545 GR=((BR/10)/2.1)/.008+20
  137. 550 EA=ABS(N)/GR
  138. 555 A1=EA/2:F1=1:GOTO 2000
  139. 557 :
  140. 558 REM ***     FREIE BEMESSUNG     ***
  141. 559 :
  142. 560 GOSUB10000
  143. 565 SYS AUS,5,6,"[194]EWEHRUNGSANTEIL :"
  144. 570 SYS AUS,5,7,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  145. 574 SYS AUS,5,9 ,"0,8 % - 1,5 %  WIRTSCHAFTLICH"
  146. 576 SYS AUS,5,11,"1,5 % - 3,0 %  STAERKER BEWEHRT"
  147. 578 SYS AUS,5,13,"3,0 % - 6,0 %  STARK BEWEHRT"
  148. 590 SYS AUS,5,17,"[194]EWEHRUNGSANTEIL MUE =>";
  149. 595 SYS EIN,3,E2$,A$:P=VAL(A$)/100
  150. 600 GI=((BR/10)/2.1)+P*((BS/10)/2.1)
  151. 605 AB=ABS(N)/GI
  152. 610 GOSUB10000
  153. 615 SYS AUS,5,7,"[211]OLL EIN [205]ASS DES [209]UERSCHITTES"
  154. 620 SYS AUS,8,9,"VORGEGEBEN WERDEN (J/N)? "
  155. 625 SYS AUS,5,13,"[215]IRD  EIN ' N ' EINGEGEBEN, SO"
  156. 630 SYS AUS,5,15,"WIRD DIE [193]BMESSUNG DER [211]TUETZE"
  157. 635 SYS AUS,12,17,"  QUADRATISCH !!"
  158. 640 GETA$:IFA$=""THEN640
  159. 645 IFA$="N"THEN 670
  160. 650 IFA$<>"J"THEN640
  161. 655 SYS AUS,5,20,"[211]EITENLAENGE [CM] B = ";:
  162. 660 SYS EIN,5,E2$,A$
  163. 665 B=VAL(A$)
  164. 667 D=AB/B
  165. 669 GOTO675
  166. 670 B=SQR(AB):D=B
  167. 675 B=INT(B+.5):D=INT(D+.5)
  168. 676 GR=((BR/10)/2.1)/.008+20
  169. 680 EA=P*AB:A1=EA/2:F1=2:GOTO 182
  170. 690 :
  171. 691 REM -------------------------------
  172. 692 REM -    REGELBEMESSUNG TEIL 2    -
  173. 693 REM -------------------------------
  174. 694 :
  175. 695 REM ***   BESTIMMUNG VOM MAX M  ***
  176. 700 IFABS(M2)>MTHEN MX=ABS(M2):GOTO710
  177. 705 MX=ABS(M)
  178. 710 D2=(D1*2)/D
  179. 715 GOSUB10000
  180. 720 SYS AUS,7,5,"[194]IEGUNG MIT [206]ORMALKRAFT UND"
  181. 722 SYS AUS,12,6,"KLEINER [193]USMITTE"
  182. 723 SYS AUS,5,8,"[197]S IST DAS [205]OMENTEN-[206]ORMALKRAFT"
  183. 725 SYS AUS,10,9,"[196]IAGRAMM D1/D = ";
  184. 727 PRINTUSR(D2),5,2
  185. 730 SYS AUS,15,10,"[158]ZU BENUTZEN."
  186. 735 N1=(N *.001)/((B*D*.0001)*BR)
  187. 740 M1=(MX*.001)/((B*D*D*.000001)*BR)
  188. 745 IFABS(M1)<0.045THEN800
  189. 750 IFABS(N1)<0.1 THEN800
  190. 755 SYS AUS,5,12,"M = ";:PRINTUSR(M1),6,3:PRINT"[158]"
  191. 760 SYS AUS,5,14,"N = ";:PRINTUSR(N1),6,3:PRINT"[158]"
  192. 765 SYS AUS,5,16,"[194]ITTE ENTNEHMEN [211]IE AUS DEM"
  193. 770 SYS AUS,8,18,"[196]IAGRAMM [215]01=[215]02 = ";
  194. 775 SYS EIN,5,E2$,A$
  195. 777 W=VAL(A$)
  196. 779 MUE=W/((BS/10)/1.75)
  197. 780 A1=MUE*B*D:EA=2*A1
  198. 785 GOTO2000
  199. 790 :
  200. 791 REM *** STAT. ERF. QUERSCHNITT  ***
  201. 792 :
  202. 800 SYS AUS,5,12,"[196]IE [215]ERTE M UND N SIND UNGUENST-"
  203. 802 SYS AUS,5,13,"IG. => STAT. ERF. [209]UERSCHNITT":PRINT"
  204. 810 M2[178]M1[172]5:N2[178]N1[172]5:M3[178]M1[172]10:N3[178]N1[172]10
  205. 815 [158] AUS, 5,15,"M X 1 =";:[153][183](M1),6,3
  206. 816 [158] AUS,20,15,"N X 1 =";:[153][183](N1),6,3
  207. 817 [158] AUS, 5,16,"M X 5 =";:[153][183](M2),6,3
  208. 818 [158] AUS,20,16,"N X 5 =";:[153][183](N2),6,3
  209. 819 [158] AUS, 5,17,"M X10 =";:[153][183](M3),6,3
  210. 820 [158] AUS,20,17,"N X10 =";:[153][183](N3),6,3
  211. 825 [158] AUS,5,19,"ATNUS STR$IAGRAMM N$ = ";
  212. 830 [158] EIN,5,E2$,A$
  213. 832 N1[178][197](A$):N1[178][182](N1)
  214. 835 W[178].004[172]((BS[173]10)[173]1.75)
  215. 840 B1[178]([182](N)[172].001)[173](N1[172](D[173]100)[172]BR)
  216. 845 A1[178].004[172]D[172]B1[172]100
  217. 847 EA[178]2[172]A1
  218. 850 [137]2000
  219. 990 :
  220. 1991 [143] ------------------------------
  221. 1992 [143] -     BERECHNUNG BEWEHRUNG   -
  222. 1993 [143] ------------------------------
  223. 1994 :
  224. 2000 [139] B[179][178]40 [175] D[179][178]40 [167]ZA[178]4:[137]2045
  225. 2001 [139] B[179][178]40 [167] Z1[178]2 :[137]2018
  226. 2002 [139] D[179][178]40 [167] Z2[178]2 :[137]2005
  227. 2003 :
  228. 2005 Z[178]1
  229. 2010 Z[178]Z[170]1
  230. 2015 [139](B[173]Z)[179][178]30[167]Z1[178]Z[170]1:[137]2017
  231. 2016 [137]2010
  232. 2017 [139] Z2[179][177]0[167]2030
  233. 2018 Z[178]1
  234. 2019 Z[178]Z[170]1
  235. 2020 [139](D[173]Z)[179][178]30[167]Z2[178]Z[170]1:[137]2030
  236. 2025 [137]2019
  237. 2030 ZA[178](Z1[170]Z2)[172]2:ZA[178]ZA[171]4
  238. 2035 :
  239. 2042 [143] ***     BEST. ERF. AS      ***
  240. 2043 :
  241. 2045 [129] DS[178]1.2[164]1.6[169].2
  242. 2050 [141]2500:AT[178]ZA[172]SA
  243. 2055 [139]AT[177][178]EA[167] 2600
  244. 2060 [130]
  245. 2065 DS[178]2.0:[141]2500:AT[178]ZA[172]SA:[139]AT[177][178]EA[167]2600
  246. 2070 DS[178]2.5:[141]2500:AT[178]ZA[172]SA:[139]AT[177][178]EA[167]2600
  247. 2075 DS[178]2.8:[141]2500:AT[178]ZA[172]SA:[139]AT[177][178]EA[167]2600
  248. 2080 ZA[178]ZA[170]2:[137]2045
  249. 2490 :
  250. 2491 [143] ***   BER. KREISFLAECHE    ***
  251. 2492 :
  252. 2500 SA[178]([255][172]DS[172]DS)[173]4:[142]
  253. 2590 :
  254. 2591 [143] ------------------------------
  255. 2592 [143] -      BEMESSUNG BUEGEL      -
  256. 2593 [143] ------------------------------
  257. 2594 :
  258. 2600 [139] DS[178]1.2[176]DS[178]1.4[176]DS[178]16[167]BU[178]6:[137]2620
  259. 2605 [139] DS[178]2.0[176]DS[178]2.5[167]BU[178] 8:[137]2620
  260. 2610 BU[178]10
  261. 2620 C1[178]12[172]DS:C1[178][181](C1):C2[178]2[172]C1
  262. 2700 [137]3000
  263. 2990 :
  264. 2991 [143] ------------------------------
  265. 2992 [143] -   AUSGABE AUF BILDSCHIRM   -
  266. 2993 [143] ------------------------------
  267. 2994 :
  268. 3000 [141]10000
  269. 3005 [158] AUS,5,4,"VALINGABEWERTE :"
  270. 3006 [158] AUS,5,5,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  271. 3010 [158] AUS,5,6,"PEEKAUSTOFFE :"
  272. 3011 [158] AUS,5,7,"-----------"
  273. 3015 [139]BS[178]220 [167]B1$[178]"PEEK(null)T 220/340":S$[178]" RIGHT$RIGHT$"
  274. 3016 [139]BS[178]420 [167]B1$[178]"PEEK(null)T 420/500":S$[178]"RIGHT$RIGHT$RIGHT$"
  275. 3017 [139]BS[178]500 [167]B1$[178]"PEEK(null)(null) 500/550":S$[178]"RIGHT$(null)"
  276. 3020 [158] AUS,5,8, "PEEKETON PEEK";:[153]BE
  277. 3025 [158] AUS,5,9 ,"(null)TAHL ";:[153]B1$
  278. 3030 [158] AUS,5,11,"(null)UERSCHNITT :"
  279. 3031 [158] AUS,5,12,"-------------"
  280. 3035 B2$[178]" [CM]":B3$[178]" [K(null)]":B4$[178]" [K(null)M]":B7$[178]" [CM2]":B8$[178]"[MM]"
  281. 3040 [158] AUS,5,13,"B  = ";:[153][183](B),8,2;:[153]B2$
  282. 3041 [158] AUS,5,14,"D  = ";:[153][183](D),8,2;:[153]B2$
  283. 3042 [158] AUS,5,15,"C  = ";:[153][183](D1),8,2;:[153]B2$
  284. 3050 [158] AUS,5,17,"(null)CHNITTKRAEFTE :"
  285. 3051 [158] AUS,5,18,"----------------"
  286. 3052 [158] AUS,5,19,"(null)  = ";:[153][183](N),8,2;:[153]B3$
  287. 3055 [158] AUS,5,20,"(null)2 = ";:[153][183](E1),8,2;:[153]B4$
  288. 3056 [158] AUS,5,21,"(null)1 = ";:[153][183](E2),8,2;:[153]B4$
  289. 3057 [158] AUS,12,23,"< WEITER MIT LEN= >"
  290. 3058 [146] 653,2
  291. 3060 [139] KSN[179][177]1[167] 3500
  292. 3061 [141]10000
  293. 3065 [158] AUS,12,4,"(null)(null)(null) ERFORDERLICH !!"
  294. 3066 [158] AUS,5,6,"GRENZ (null)AMDA    = ";:[153][183](GL),2,0
  295. 3067 [158] AUS,5,7,"      (null)AMDA    = ";:[153][183]( L),2,0
  296. 3072 B6$[178]" [M]"
  297. 3075 [158] AUS,5,11,"(null)NICKLAENGE (null)K = ";:[153][183](SK),6,2;:[153]B6$
  298. 3080 [158] AUS,5,14,"(null)O               ";:[153][183](M0),6,2;:[153]B4$
  299. 3081 [158] AUS,5,17,"(null)USATZAUSMITTE   ";:[153][183](F ),6,2;:[153]B2$
  300. 3085 [158] AUS,5,20,"MAX (null)          = ";:[153][183](M) ,6,2;:[153]B4$
  301. 3087 [158] AUS,12,23,"< WEITER MIT LEN= >"
  302. 3090 [146] 653,2
  303. 3500 [141]10000
  304. 3505 [158] AUS,5,4,"(null)AHL DER PEEKEWEHRUNG :"
  305. 3510 [158] AUS,5,5,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  306. 3520 [158] AUS,5,7,"ERF.       ATNS = ";:[153][183](EA),6,2;B7$
  307. 3525 [158] AUS,5,9,"GEW. PEEKEWEHRUNG :"
  308. 3526 [158] AUS,5,10,"----------------"
  309. 3530 [158] AUS,5,11,"   ";ZA;S$;" DS=";DS[172]10;B8$:[153]"SYS"
  310. 3535 [158] AUS,5,13,"VORH.      ATNS = ";:[153][183](AT),6,2;B7$
  311. 3545 [158] AUS,5,17,"PEEKUEGELBEMESUNG :"
  312. 3550 [158] AUS,5,18,"----------------"
  313. 3552 [158] AUS,5,19,"PEEKUEGEL DSBU   = ";BU;B8$
  314. 3553 [158] AUS,5,21,"SBU = ";:[153][183](C1),2,0;B2$;"  SBU' = ";
  315. 3555 [153][183](C2),2,0;B2$
  316. 3560 [158] AUS,12,23,"< WEITER MIT LEN= >"
  317. 3565 [146] 653,2
  318. 3570 AS[178]AT
  319. 3580 [139]F1[179][177]1[167]3585
  320. 3581 ZN[178]AS[172]GR
  321. 3582 [137]3605
  322. 3585 [139]1[179][177]2[167]3600
  323. 3586 ZN[178]AB[172]GR[170](BS[173]2.1)[173]10[172]AS
  324. 3587 [137]3605
  325. 3600 ZN[178]D[172]B[172]((BR[173]10)[173]2.1)[170]AS[172]((BS[173]10)[173]2.1)
  326. 3605 MUE[178](AS[173](B[172]D))[172]100
  327. 3610 [141]10000
  328. 3615 [158] AUS,5,5,"(null)ULAESSIGE PEEKELASTUNG :"
  329. 3620 [158] AUS,5,6,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  330. 3621 [158] AUS,5,9,"ZUL. (null) = ";:[153][183](ZN),8,2;B3$
  331. 3625 [158] AUS,5,12,"PEEKEWEHRUNGSGEHALT :"
  332. 3630 [158] AUS,5,13,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  333. 3635 [158] AUS,5,16,"(null)UE    = ";:[153][183](MUE),8,2;" [%]"
  334. 3640 [158] AUS,12,23,"< WEITER MIT LEN= >"
  335. 3645 [146] 653,2
  336. 3650 [141]10000
  337. 3655 [158] AUS,5,10,"(null)OLLEN DIE VALRGEBNISSE AUF EINEM"
  338. 3660 [158] AUS,6,12,"STR$RUCKER  AUSGEGEBEN  WERDEN ?"
  339. 3665 [161]A$:[139]A$[178]""[167]3665
  340. 3670 [139]A$[178]"J"[167]4000
  341. 3675 [139]A$[179][177]"N"[167]3665
  342. 3680 :[156]:[137]150
  343. 3990 :
  344. 3991 [143] ------------------------------
  345. 3992 [143] -   DRUCKERAUSGABE MPS 801   -
  346. 3993 [143] ------------------------------
  347. 3994 :
  348. 4000 [159]4,4:[151]768,185:[152]4:[160]4:[151]768,139
  349. 4005 [139] ST[179][177][171]128[167]4050
  350. 4010 [141]10600
  351. 4015 [158] AUS,7,17,"STR$RUCKER BITTE EINSCHALTEN !!SYS"
  352. 4020 [129]W[178]1[164]1000:[130]:[137]4000
  353. 4050 [159]1,4,7
  354. 4055 [152]1,[199](14)[199](16)"08(null)TAHLBETONBEMSESSUNG : (null)TUETZEN"
  355. 4056 [152]1,[199](15)[199](16)"23(BEI UNVERSCHIEBLICHEN (null)YSTEMEN)"
  356. 4064 :
  357. 4065 [143] ***    SONDERZEICHEN       ***
  358. 4066 :
  359. 4068 [143] LAMDA
  360. 4075 [131]225,154,132,136,240,128
  361. 4078 :
  362. 4080 [143] DURCHMESSER
  363. 4082 [131]156,162,255,162,156,128
  364. 4085 :
  365. 4095 [129]I[178]1[164]6
  366. 4100 [135] X:S1$[178]S1$[170][199](X):[130]I
  367. 4105 [129]I[178]1[164]6
  368. 4110 [135] X:S2$[178]S2$[170][199](X):[130]I
  369. 4115 [141]10000
  370. 4120 [158] AUS,5,5,"(null)OSITIONS-(null)R. : ";
  371. 4122 [158] EIN,4,E2$,A$:PO[178][197](A$)
  372. 4125 [158] AUS,5,7,"(null)OSITION      : ";
  373. 4127 [158] EIN,20,E3$,P$
  374. 4130 [152]1,[199](10)[199](10)[199](10)
  375. 4132 [152]1,"   (null)OSITIONS-(null)R. : ";PO;"       (null)OSITION   : ";P$
  376. 4134 [152]1,[199](10)
  377. 4135 [152]1,"   PEEKAUSTOFFE :"
  378. 4136 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  379. 4140 [152]1,"   PEEKETON :  PEEK";BE;"      (null)TAHL : ";B1$
  380. 4142 [152]1
  381. 4144 [152]1,"   (null)UERSCHNITT :"
  382. 4145 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  383. 4147 [152]1,"   B = ";[183](B),8,2;B2$;"     ";"D  = ";[183](D),8,2;B2$;"     ";
  384. 4150 [152]1," C  = ";[183](D1),8,2;B2$
  385. 4152 [152]1
  386. 4156 [152]1,"   (null)CHNITTKRAEFTE :"
  387. 4160 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  388. 4166 [152]1,"   (null) = ";[183](N),8,2;B3$;"     ";"(null)2 = ";[183](E1),8,2;B4$;"     ";
  389. 4167 [152]1,"(null)1 = ";[183](E2),8,2;B4$
  390. 4168 [152]1,[199](10)
  391. 4170 [139]KSN[179][177]1[167] 4300
  392. 4175 [152]1,[199](16)"15(null)NICKSICHERHEITSNACHWEIS IST ERFORDERLICH !!"
  393. 4176 [152]1,[199](16)"15TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[199](10)
  394. 4180 [152]1,"   CHR$RENZ = ";
  395. 4182 [152]1,[199](8)S1$;
  396. 4183 [152]1,[199](15);[183](GL),2,0;"   TANTAN>   VORH. "[199](8)S1$;
  397. 4184 [152]1,[199](15)" = ";[183](L),2,0
  398. 4185 [152]1,[199](10)"   (null)NICKLAENGE  (null)K = ";[183](SK),6,2;B6$;[199](10)
  399. 4186 [152]1,"   (null)O = ";[183](M0),6,2;B4$;"   ";
  400. 4187 [152]1,"(null)USATZAUSMITTE F = ";[183](F),6,2;B2$;
  401. 4190 [152]1,"  MAX (null) = ";[183](M),6,2;B4$
  402. 4195 [152]1
  403. 4300 [152]1,[199](14)[199](16)"17(null)AHL DER PEEKEWEHRUNG :"
  404. 4305 [152]1,[199](16)"17TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[199](15)[199](10)
  405. 4310 [152]1,"   ERF.       ATNS = ";[183](EA),6,2;B7$
  406. 4320 [152]1
  407. 4325 [152]1,"   GEW. PEEKEWEHRUNG :"
  408. 4326 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  409. 4330 [152]1,[199](14)"            ";ZA;" ";S$;"  "[199](8)S2$;
  410. 4331 [152]1,[199](14)" ";DS[172]10;B8$[199](15)[199](10)
  411. 4335 [152]1,"   VORH.      ATNS = ";[183](AT),6,2;B7$
  412. 4340 [152]1,[199](10)
  413. 4345 [152]1,"   PEEKUEGELBEMESSUNG :"
  414. 4346 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  415. 4350 [152]1,"   PEEKUEGEL "[199](8)S2$;
  416. 4351 [152]1,[199](15)" ";BU;B8$
  417. 4360 [152]1,"   SBU    = ";[183](C1),2,0;B2$;"     SBU'    = ";[183](C2),2,0;B2$
  418. 4365 [152]1
  419. 4370 [152]1,"   (null)ULAESSIGE PEEKELASTUNG :"
  420. 4371 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  421. 4375 [152]1,"   ZUL. (null) = ";[183](ZN),8,2;B3$[199](10)
  422. 4380 [152]1,"   PEEKEWEHRUNGSGEHALT :"
  423. 4381 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  424. 4382 [152]1,"   MUE    = ";[183](MUE),8,2;" [%]"
  425. 4500 [129] W[178]1[164]2000:[130]:[156]:[137]150
  426. 4990 [143] ------------------------------
  427. 4991 [143] -       EINGABEMENUE         -
  428. 4992 [143] ------------------------------
  429. 5000 [158] AUS,5,7,"PEEKAUSTOFFE :"
  430. 5010 [158] AUS,5,8,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  431. 5020 [158] AUS,5,9,"PEEKETON      : PEEK";:[158] EIN,2,E2$,A$
  432. 5025 BE[178][197](A$)
  433. 5030 [139]BE[178]15[176]BE[178]25[176]BE[178]35[176]BE[178]45[176]BE[178]55[167]5032
  434. 5031 [137]5020
  435. 5032 [139]BE[178]15[167]BR[178]10.5:[137]5040
  436. 5033 [139]BE[178]25[167]BR[178]17.5:[137]5040
  437. 5034 [139]BE[178]35[167]BR[178]23  :[137]5040
  438. 5035 [139]BE[178]45[167]BR[178]27  :[137]5040
  439. 5036 [139]BE[178]55[167]BR[178]30
  440. 5040 [158] AUS,5,11,"PEEKETONSTABSTAHL :"
  441. 5050 [158] AUS,5,12,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  442. 5055 [158] AUS,5,13,"<1> => PEEK(null)T 220/340"
  443. 5060 [158] AUS,5,14,"<2> => PEEK(null)T 420/500"
  444. 5070 [158] AUS,5,15,"<3> => PEEK(null)T 500/550"
  445. 5080 [158] AUS,5,17,"PEEKST : ";:[158] EIN ,2,E2$,A$
  446. 5085 BS[178][197](A$)
  447. 5086 [139]BS[178]1[167]BS[178]220:[142]
  448. 5090 [139]BS[178]2[167]BS[178]420:[142]
  449. 5095 [139]BS[178]3[167]BS[178]500:[142]
  450. 5096 [137]5080
  451. 5100 [158] AUS,5,7,"(null)UERSCHNITTEINGABE :"
  452. 5110 [158] AUS,5,8,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  453. 5120 [158] AUS,5,9,"PEEKREITE [CM]  B = ";:[158] EIN,5,E2$,A$
  454. 5125 B[178][197](A$)
  455. 5130 [158] AUS,5,10,"STR$ICKE  [CM]  D = ";:[158] EIN,5,E2$,A$
  456. 5135 D[178][197](A$)
  457. 5140 [158] AUS,5,12,"PEEKETONDECKUNG :"
  458. 5154 [158] AUS,5,13,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  459. 5155 [158] AUS,5,14,"(null)TABDURCHMESSER <= 12MM =>C=1,0CM"
  460. 5156 [158] AUS,5,15,"(null)TABDURCHMESSER 14-18MM =>C=1,5CM"
  461. 5157 [158] AUS,5,16,"(null)TABDURCHMESSER 20-22MM =>C=2,0CM"
  462. 5158 [158] AUS,5,17,"(null)TABDURCHMESSER 25-28MM =>C=2,5CM"
  463. 5159 [158] AUS,5,18,"(null)TABDURCHMESSER >= 28MM =>C=3,0CM"
  464. 5160 [158] AUS,5,20,"PEEKETONDECKUNG    C [CM]  = ";:
  465. 5165 [158] EIN,5,E2$,A$
  466. 5170 D1[178][197](A$)
  467. 5175 [142]
  468. 5200 [158] AUS,5,6,"(null)CHNITTKRAEFTE :"
  469. 5210 [158] AUS,5,7,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  470. 5215 [158] AUS,5,8,"(null) IST ALS STR$RUCKKRAFT NEGATIV":[153]"SYS"
  471. 5217 [158] AUS,12,9,"EINZUSETZEN !!"
  472. 5220 [158] AUS,5,11,"(null)ORMALKRAFT (null) [K(null)] = ";:[158] EIN,7,E2$,A$
  473. 5225 N[178][197](A$)
  474. 5230 [158] AUS,5,13,"VALINGABE DER VALNDMOMENTE :"
  475. 5231 [158] AUS,5,14,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  476. 5232 [158] AUS,5,15,"(null)OMENTE VORZEICHENGERECHT EINGEBEN!"
  477. 5235 [158] AUS,10,17,"(null)(null)2(null) > (null)(null)1(null) !!SYS"
  478. 5240 [158] AUS,5,19,"(null)2  [K(null)M] = ";:[158]EIN,7,E2$,A$
  479. 5245 M2[178][197](A$):E1[178]M2
  480. 5250 [158] AUS,5,21,"(null)1  [K(null)M] = ";:[158]EIN,7,E2$,A$
  481. 5255 M1[178][197](A$):E2[178]M1
  482. 5260 [142]
  483. 5300 [158] AUS,3,11,"(null)OLL EIN (null)NICKSICHERHEITSNACHWEIS"
  484. 5310 [158] AUS,6,13,"DURCHGEFUEHRT WERDEN (J/N) ?"
  485. 5320 [161]A$:[139]A$[178]""[167]5320
  486. 5325 [139]A$[178]"J"[167]KSN[178]1:[141]10050:[142]
  487. 5330 [139]A$[178]"N"[167]KSN[178]0:[142]
  488. 5340 [137]5320
  489. 5400 [139]B[179][177]0 [175] D[179][177]0[167] 182
  490. 5405 [137] 560 :[143] FREIE BEMESSUNG
  491. 5500 [141]10600:[141]10000
  492. 5502 [158] AUS,5,12,"PEEKERECHNUNG WURDE WEGEN FEHLER-"
  493. 5505 [153]"      HAFTE VALINGABEN ABGEBROCHEN !!"
  494. 5510 [129]W[178]1[164]3000:[130]:[138] 150
  495. 5600 [141]10000:[141]10600
  496. 5610 [158] AUS,6,11,"PEEKERECHNUNGEN MUESSEN MIT DEM"
  497. 5612 [158] AUS,9,13,"KH-(null)ERFAHREN ERMITTELT"
  498. 5614 [158] AUS,15,15,"WERDEN !!"
  499. 5616 [137]5510
  500. 9950 :
  501. 9951 [143] ------------------------------
  502. 9952 [143] -  UNTERPROGRAMMBIBLIOTHEK   -
  503. 9953 [143] ------------------------------
  504. 9954 :
  505. 9955 [143] ***  PROGRAMMVORBEREITUNG  ***
  506. 9956 :
  507. 9960 [143] CURSOR NEU SETZTEN
  508. 9961 [158] 49152,100
  509. 9963 [143] ***    PRINT-AT / INPUT    ***
  510. 9965 EIN [178]49488 : AUS[178] 49712
  511. 9967 [143] ***       PRINT-USING      ***
  512. 9969 S[178]49752:[151]785,S[171]256[172][181](S[173]256):[151]786,S[173]256
  513. 9970 :
  514. 9980 E1$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  515. 9981 E2$[178]"+-1234567890."
  516. 9982 E3$[178]E1$[170]E2$[170]"ATNPEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  517. 9983 E4$[178]"0123"
  518. 9990 S[178]0:[142]
  519. 9992 [143] ------------------------------
  520. 9993 [143] -   BILDSCHIRMSEITENAUFBAU   -
  521. 9994 [143] ------------------------------
  522. 9995 :
  523. 10000 [153] [199](14 )[199](147);
  524. 10002 [153]"SYSOR";:[129] Z[178]1 [164] 38:[153]"TAN";:[130]
  525. 10004 [153]"^(null)    (null)TAHLBETONBEMESSUNG : (null)TUETZEN    (null)";
  526. 10006 [153]"(null)    BEI UNVERSCHIEBLICHEN (null)YSTEMEN    (null)";
  527. 10008 [153]"/";:[129] Z[178]1 [164] 38:[153]"TAN";:[130]:[153]"EXP"
  528. 10032 :[142]
  529. 10040 :
  530. 10041 [143] -----------------------------
  531. 10042 [143] -  KNICKSICHERHEITSNACHWEIS -
  532. 10043 [143] -         SCHAUBILD         -
  533. 10044 [143] -----------------------------
  534. 10045 :
  535. 10050 [153][199](147);
  536. 10052 [153]"SYSOR";:[129] Z[178]1 [164] 38:[153]"`";:[130]
  537. 10054 [153]"^}    sTAHLBETONBEMESSUNG : sTUETZEN    }";
  538. 10056 [153]"}    BEI UNVERSCHIEBLICHEN sYSTEMEN    }";
  539. 10058 [153]"/";:[129] Z[178]1 [164] 38:[153]"`";:[130]
  540. 10060 [153]"EXPOR````````=";:[129] Z[178]1 [164] 21:[153]"`";:[130]
  541. 10062 [153]"=```````^}"[166]8)"} aUSWAHL DES sYSTEMS:}"[166]7)"}";
  542. 10064 [153]"}"[166]8)"/";:[129] Z[178]1 [164] 21:[153]"`";:[130]
  543. 10066 [153]"EXP"[166]7)"}}"[166]8)"*"[166]9)"`=`"[166]9)"*"[166]7)"SYS}";
  544. 10068 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
  545. 10070 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
  546. 10072 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
  547. 10074 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
  548. 10076 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
  549. 10078 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
  550. 10080 [153]"}"[166]8)"*"[166]9)"`>`"[166]8)"`>`"[166]6)"SYS}";
  551. 10082 [153]"}"[166]7)"[1]"[166]8)"[2]"[166]8)"[3]"[166]6)"SYS}";
  552. 10084 [153]"}"[166]38)"}}   BEIDE eCKEN  STARR EIN-  STARR     SYS}";
  553. 10086 [153]"}    GELENKIG     GESPANNT  GELENKIG   SYS}";
  554. 10090 [153]"}"[166]38)"}-``````````````````=```````````````````<";
  555. 10092 [153]"(null)* (null)AHL DES (null)YSTEMS(null)(null)WISCHEN   UND   * (null)";
  556. 10094 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";:[153]"ONONON";
  557. 10099 [153]""
  558. 10100 [158] AUS,28,21," ";:
  559. 10101 [158] EIN,2,E4$,A$
  560. 10105 A1[178][197](A$)
  561. 10110 [158] AUS,34,21," ";:
  562. 10115 [158] EIN,2,E4$,A$
  563. 10120 A2[178][197](A$)
  564. 10125 S1[178]1:S2[178].5:S3[178].7
  565. 10130 [142]
  566. 10590 :
  567. 10591 [143] -----------------------------
  568. 10592 [143] -        ALARMTON           -
  569. 10593 [143] -----------------------------
  570. 10594 :
  571. 10600 [151]54296,13:[151]54277,25
  572. 10605 [151]54278,68
  573. 10610 [151]54273,99:[151]54272,100:[151]54276,33
  574. 10615 [129]T[178]1[164]220:[130]
  575. 10620 [151]54276,0:[142]
  576. 10700 :
  577. 10701 [143] -----------------------------
  578. 10702 [143] -   LITERATURVERZEICHNIS    -
  579. 10703 [143] -----------------------------
  580. 10704 :
  581. 10705 [143] "(null)OMMELSDORF
  582. 10706 REM "[211]TAHLBETONBAU [212]EIL 2
  583. 10707 [143] "(null)ERNER RIGHT$NGENIEUR (null)EXTE (null)RIGHT$(null)16
  584. 10708 REM " 4.[193]UFLAGE 1986
  585. 10709 :
  586. 10710 [143] "(null)ENDEHORST/(null)UTH
  587. 10711 REM "[194]AUTECHNISCHE [218]AHLENTAFELN
  588. 10712 [143] "PEEK.CHR$.(null)EUBNER (null)ERLAG
  589. 10713 REM "21.[193]UFLAGE
  590.